reset all

func init
func silent
func 1 <marcus.kps

xsilent=t
coll a
force 1
velf=t
mode 0
back=0
scale=.2
verbose=f

knot 1

<randorient.kps
refl r
tanmag=-.1

if \rr4 < 1 then "tanf=on"

txt init

<txt_colours.kps

par0 = \rr3

if \ppar0 < 1 then <txt_colours.kps
txt bead 1 "A"
txt bead 2 "l"
txt bead 3 "l"
txt bead 4 " "
txt bead 5 "t"
txt bead 6 "h"
txt bead 7 "i"
txt bead 8 "n"
txt bead 9 "g"
txt bead 10 "s"
txt bead 11 " "
txt bead 12 "a"
txt bead 13 "r"
txt bead 14 "e"
txt bead 15 " "
txt bead 16 "i"
txt bead 17 "n"
txt bead 18 "t"
txt bead 19 "e"
txt bead 20 "r"
txt bead 21 "w"
txt bead 22 "o"
txt bead 23 "v"
txt bead 24 "e"
txt bead 25 "n"
txt bead 26 " "
txt bead 27 "w"
txt bead 28 "i"
txt bead 29 "t"
txt bead 30 "h"
txt bead 31 " "
txt bead 32 "o"
txt bead 33 "n"
txt bead 34 "e"
txt bead 35 " "
txt bead 36 "a"
txt bead 37 "n"
txt bead 38 "o"
txt bead 39 "t"
txt bead 40 "h"
txt bead 41 "e"
txt bead 42 "r"
txt bead 43 ";"
txt bead 44 " "
txt bead 45 "a"
txt bead 46 " "
txt bead 47 "s"
txt bead 48 "a"
txt bead 49 "c"
txt bead 50 "r"
txt bead 51 "e"
txt bead 52 "d"
txt bead 53 " "
txt bead 54 "b"
txt bead 55 "o"
txt bead 56 "n"
txt bead 57 "d"
txt bead 58 " "
txt bead 59 "u"
txt bead 60 "n"
txt bead 61 "i"
txt bead 62 "t"
txt bead 63 "e"
txt bead 64 "s"
txt bead 65 " "
txt bead 66 "t"
txt bead 67 "h"
txt bead 68 "e"
txt bead 69 "m"
txt bead 70 ";"
if \ppar0 < 1 then <txt_colours.kps
txt bead 72 "t"
txt bead 73 "h"
txt bead 74 "e"
txt bead 75 "r"
txt bead 76 "e"
txt bead 77 " "
txt bead 78 "i"
txt bead 79 "s"
txt bead 80 " "
txt bead 81 "s"
txt bead 82 "c"
txt bead 83 "a"
txt bead 84 "r"
txt bead 85 "c"
txt bead 86 "e"
txt bead 87 "l"
txt bead 88 "y"
txt bead 89 " "
txt bead 90 "o"
txt bead 91 "n"
txt bead 92 "e"
txt bead 93 " "
txt bead 94 "t"
txt bead 95 "h"
txt bead 96 "i"
txt bead 97 "n"
txt bead 98 "g"
txt bead 99 " "
txt bead 100 "t"
txt bead 101 "h"
txt bead 102 "a"
txt bead 103 "t"
txt bead 104 " "
txt bead 105 "i"
txt bead 106 "s"
txt bead 107 " "
txt bead 108 "i"
txt bead 109 "s"
txt bead 110 "o"
txt bead 111 "l"
txt bead 112 "a"
txt bead 113 "t"
txt bead 114 "e"
txt bead 115 "d"
txt bead 116 " "
txt bead 117 "f"
txt bead 118 "r"
txt bead 119 "o"
txt bead 120 "m"
txt bead 121 " "
txt bead 122 "a"
txt bead 123 "n"
txt bead 124 "o"
txt bead 125 "t"
txt bead 126 "h"
txt bead 127 "e"
txt bead 128 "r"
txt bead 129 "."
txt bead 130 " "
if \ppar0 < 1 then <txt_colours.kps
txt bead 132 "E"
txt bead 133 "v"
txt bead 134 "e"
txt bead 135 "r"
txt bead 136 "y"
txt bead 137 "t"
txt bead 138 "h"
txt bead 139 "i"
txt bead 140 "n"
txt bead 141 "g"
txt bead 142 " "
txt bead 143 "i"
txt bead 144 "s"
txt bead 145 " "
txt bead 146 "c"
txt bead 147 "o"
txt bead 148 "o"
txt bead 149 "r"
txt bead 150 "d"
txt bead 151 "i"
txt bead 152 "n"
txt bead 153 "a"
txt bead 154 "t"
txt bead 155 "e"
txt bead 156 "d"
txt bead 157 ","
txt bead 158 " "
txt bead 159 "e"
txt bead 160 "v"
txt bead 161 "e"
txt bead 162 "r"
txt bead 163 "y"
txt bead 164 "t"
txt bead 165 "h"
txt bead 166 "i"
txt bead 167 "n"
txt bead 168 "g"
txt bead 169 " "
txt bead 170 "w"
txt bead 171 "o"
txt bead 172 "r"
txt bead 173 "k"
txt bead 174 "s"
txt bead 175 " "
txt bead 176 "t"
txt bead 177 "o"
txt bead 178 "g"
txt bead 179 "e"
txt bead 180 "t"
txt bead 181 "h"
txt bead 182 "e"
txt bead 183 "r"
txt bead 184 " "
txt bead 185 "i"
txt bead 186 "n"
txt bead 187 " "
txt bead 188 "g"
txt bead 189 "i"
txt bead 190 "v"
txt bead 191 "i"
txt bead 192 "n"
txt bead 193 "g"
txt bead 194 " "
txt bead 195 "f"
txt bead 196 "o"
txt bead 197 "r"
txt bead 198 "m"
txt bead 199 " "
txt bead 200 "t"
txt bead 201 "o"
txt bead 202 " "
txt bead 203 "t"
txt bead 204 "h"
txt bead 205 "e"
txt bead 206 " "
txt bead 207 "o"
txt bead 208 "n"
txt bead 209 "e"
txt bead 210 " "
txt bead 211 "u"
txt bead 212 "n"
txt bead 213 "i"
txt bead 214 "v"
txt bead 215 "e"
txt bead 216 "r"
txt bead 217 "s"
txt bead 218 "e"
txt bead 219 "."
txt bead 220 " "
if \ppar0 < 1 then <txt_colours.kps
txt bead 222 "T"
txt bead 223 "h"
txt bead 224 "e"
txt bead 225 " "
txt bead 226 "w"
txt bead 227 "o"
txt bead 228 "r"
txt bead 229 "l"
txt bead 230 "d"
txt bead 231 "-"
txt bead 232 "o"
txt bead 233 "r"
txt bead 234 "d"
txt bead 235 "e"
txt bead 236 "r"
txt bead 237 " "
txt bead 238 "i"
txt bead 239 "s"
txt bead 240 " "
txt bead 241 "a"
txt bead 242 " "
txt bead 243 "u"
txt bead 244 "n"
txt bead 245 "i"
txt bead 246 "t"
txt bead 247 "y"
txt bead 248 " "
txt bead 249 "m"
txt bead 250 "a"
txt bead 251 "d"
txt bead 252 "e"
txt bead 253 " "
txt bead 254 "u"
txt bead 255 "p"
txt bead 256 " "
txt bead 257 "o"
txt bead 258 "f"
txt bead 259 " "
txt bead 260 "m"
txt bead 261 "u"
txt bead 262 "l"
txt bead 263 "t"
txt bead 264 "i"
txt bead 265 "p"
txt bead 266 "l"
txt bead 267 "i"
txt bead 268 "c"
txt bead 269 "i"
txt bead 270 "t"
txt bead 271 "y"
txt bead 272 "."
txt bead 273 " "
if \ppar0 < 1 then <txt_colours.kps
txt bead 275 " "
txt bead 276 "-"
txt bead 277 "-"
txt bead 278 "-"
txt bead 279 " "
txt bead 280 "M"
txt bead 281 "a"
txt bead 282 "r"
txt bead 283 "c"
txt bead 284 "u"
txt bead 285 "s"
txt bead 286 " "
txt bead 287 "A"
txt bead 288 "u"
txt bead 289 "r"
txt bead 290 "e"
txt bead 291 "l"
txt bead 292 "i"
txt bead 293 "u"
txt bead 294 "s"
txt bead 295 " "
txt bead 296 " "
txt bead 297 " "
txt bead 298 " "
func 2 "cut 0;cut 71;cut 131;cut 221;cut 274;nop"
nbead 299
txt on
go

func 3 "jit 9999;fitto 3"
func 4 "unknot 300;untran;jitter 99999;fitto .1;tanf=t;read randorient.kps;scale 1 1 0;power=3;scale=.1;fixcofm=t"
func 5 "unknot 300;untran;jitter 1;fitto 30;tanf=t;read randorient.kps;scale 1 1 0;power=3;scale=.08;fixcofm=t"
func 6 "torus \ri+-8 1 300;untran;tanf=t;scale 1 1 1;power=5;scale=.18;fixcofm=t;read randorient.kps"

% should have the following toggled
func 7 "mode s;zbuff f;blend one one;cyl=\rr[.02/.05];draw brok;broff=\rr+-10;hsta=\rr360;tanf=t;twfix \rr+-2222"


func 8 <quote_aux1.kps

silent=f
echo
echo
echo " *** F1 reruns demo, try pressing F2-F7"
echo
